Functional analysis

count_table_cov_size <- sweep(count_table_cov, 1, genome_read_sizes, "/")

count_table_cov_size_rel <- count_table_cov_size %>%
  rownames_to_column("Genome") %>%
  mutate_at(vars(-Genome),~./sum(.)) #TSS normalisation

count_filtered <- column_to_rownames(count_table_cov_size_rel, "Genome")

Average functional diversities

Region Mean SD
Daneborg 106.233 21.418
Ittoqqortoormii 98.915 36.302

Functional diversity plots

Functional beta diversity calculations

NMDS:

Functional capacity of the MAGs

I used my taxonomy file from the last script, as I could not find a file that had the variable “user_genome” is that OK?

Create Merge table and GIFT elements for Ittoq dogs

Create Merge table and GIFT elements for Daneborg dogs

Region Daneborg: tSNE Phylum

Region Daneborg: tSNE Phylum

Region Ittoq: tSNE gifts

Region Daneborg: tSNE gifts